home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 10 / 010.d81 / lair of the necr (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  15KB  |  489 lines
  1. 1 gosub61000
  2. 10 rem *******************
  3. 12 rem **               **
  4. 13 rem **  lair of the  **
  5. 15 rem **               **
  6. 20 rem **  necromancer  **
  7. 25 rem **               **
  8. 30 rem *******************
  9. 40 :
  10. 45 rem written by rob rudd
  11. 50 rem           july 1984
  12. 55 :
  13. 60 rem translated for the commodore
  14. 65 rem            by donna k. woody
  15. 70 :
  16. 80 poke53280,1:poke53281,0:print"[158]":poke53272,23:printchr$(8)
  17. 200 print"[147]"
  18. 210 lc=1
  19. 250 goto11000
  20. 300 print
  21. 301 input"===>";c$
  22. 303 cm=0:print
  23. 305 ifleft$(c$,3)="use"orleft$(c$,3)="[213]se"thencm=2
  24. 310 ifleft$(c$,1)="s"orleft$(c$,1)="[211]"thencm=3
  25. 315 ifleft$(c$,1)="n"orleft$(c$,1)="[206]"thencm=4
  26. 320 ifleft$(c$,1)="e"orleft$(c$,1)="[197]"thencm=5
  27. 325 ifleft$(c$,1)="w"orleft$(c$,1)="[215]"thencm=6
  28. 330 ifleft$(c$,4)="look"orleft$(c$,4)="[204]ook"thencm=7
  29. 335 ifleft$(c$,3)="get"orleft$(c$,3)="[199]et"thencm=9
  30. 337 ifleft$(c$,4)="quit"orleft$(c$,4)="[209]uit"thengosub60000
  31. 340 ifcm<>2thengoto435
  32. 345 print:input"[213]se what item?[160]";u$
  33. 347 ud=0:print
  34. 350 ifleft$(u$,12)="magic sword"thenud=1
  35. 355 ifleft$(u$,4)="horn"thenud=2
  36. 360 ifleft$(u$,10)="red potion"thenud=3
  37. 365 ifleft$(u$,13)="magic potion"thenud=4
  38. 370 ifleft$(u$,7)="sceptre"thenud=5
  39. 375 ifleft$(u$,12)="dragonslayer"thenud=6
  40. 380 ifleft$(u$,7)="compass"thenud=7
  41. 385 ifleft$(u$,11)="magic dust"thenud=8
  42. 390 ifleft$(u$,10)="holy water"thenud=9
  43. 395 ifleft$(u$,4)="gold"thenud=10
  44. 400 ifud=0thenprint"[215]hat?":goto300
  45. 405 goto10500
  46. 410 ifud=3thenri=2
  47. 415 ifud=4thenps=2
  48. 420 ifud=8thenmd=2
  49. 425 ifud=9thenhw=2
  50. 430 ifud=10thengl=2
  51. 435 ifleft$(c$,1)="i"orleft$(c$,1)="[201]"thengoto20000
  52. 440 ifleft$(c$,6)="[193]nswer"orleft$(c$,6)="answer"thencm=8
  53. 445 ifc$=""thengoto301
  54. 450 ifleft$(c$,3)="com"orleft$(c$,3)="[195]om"thengoto30000
  55. 455 ifcm=0thenprint"[206]o comprendo.":goto300
  56. 460 return
  57. 499 :
  58. 500 rem *** location #1 ***
  59. 501 :
  60. 510 print"[217]ou are at the entrance of the dungeon."
  61. 515 print"[201]t is humid and mucky smelling in here."
  62. 520 print"[212]here is a sign on the wall that reads:"
  63. 525 print" '[212]hou art now within the lair of the"
  64. 527 print"  everpowerful [206]ecromancer.  [212]hou shalt"
  65. 528 print"  meet thy doom.'"
  66. 530 print:print"[212]here is an exit to the east."
  67. 540 gosub300
  68. 560 ifcm=2thenprint"[206]o effect."
  69. 570 ifcm=3orcm=4orcm=6thenprint"[217]ou cannot go that direction."
  70. 580 ifcm=5thenlc=2:goto250
  71. 590 ifcm=7thengoto500
  72. 610 ifcm=9thenprint"[206]othing here."
  73. 620 goto540
  74. 999 :
  75. 1000 rem *** location #2 ***
  76. 1001 :
  77. 1010 print"[212]his room has several human skeletons"
  78. 1015 print"scattered about the ground."
  79. 1020 ifcp=0thenprint"[212]here is a compass on the ground near"
  80. 1025 ifcp=0thenprint"one of the skeletons."
  81. 1027 print
  82. 1030 print"[212]here are exits to the west, south, and east."
  83. 1040 gosub300
  84. 1050 ifcm=2thenprint"[206]o effect."
  85. 1060 ifcm=3thenlc=5
  86. 1070 ifcm=4thenprint"[217]ou cannot go that direction."
  87. 1080 ifcm=5thenlc=3
  88. 1090 ifcm=6thenlc=1
  89. 1100 ifcm=3orcm=5orcm=6thengoto250
  90. 1110 ifcm=7thengoto1000
  91. 1120 ifcm=9andcp>0thenprint"[206]othing here."
  92. 1125 ifcm=9andcp=0thenprint"[195]ompass taken.":cp=1
  93. 1130 goto1040
  94. 1499 :
  95. 1500 rem *** location #3 ***
  96. 1501 :
  97. 1510 print"[212]here is an altar in this room."
  98. 1520 ifhw=0thenprint"[193]top of the altar is a vial of holy     water."
  99. 1525 print
  100. 1530 print"[212]here are exits to the south and west."
  101. 1540 gosub300
  102. 1550 ifcm=2thenprint"[206]o effect."
  103. 1560 ifcm=3thenlc=4:goto250
  104. 1570 ifcm=4orcm=5thenprint"[217]ou cannot go that direction."
  105. 1580 ifcm=6thenlc=2:goto250
  106. 1590 ifcm=7thengoto1500
  107. 1600 ifcm=9andhw>0thenprint"[206]othing here."
  108. 1605 ifcm=9andhw=0thenprint"[200]oly water taken.":hw=1
  109. 1610 goto1540
  110. 1999 :
  111. 2000 rem *** location #4 ***
  112. 2001 :
  113. 2010 print"[212]here is a statue of a kobold in here."
  114. 2020 ifsc=0andd4=0thenprint"[201]t is holding a sceptre."
  115. 2025 ifsc=0andd4=1thenprint"[212]here is a sceptre on the ground near   thestatue."
  116. 2030 print"[193] sign at the base of the statue reads:  '[198]ork over the dinero'."
  117. 2035 print
  118. 2040 print"[212]here are exits to the south and west."
  119. 2045 gosub300
  120. 2050 ifcm=2andud=10thenprint"[212]he statue let go of the sceptre.":d4=1
  121. 2060 ifcm=2andud<>10thenprint"[206]o effect."
  122. 2070 ifcm=9andd4=0thenprint"[217]ou cannot pry the sceptre away from thestatue's grasp."
  123. 2080 ifcm=9andd4=1andsc>0thenprint"[206]othing here."
  124. 2090 ifcm=9andd4=1andsc=0thenprint"[211]ceptre taken.":sc=1
  125. 2100 ifcm=3thenlc=7:goto250
  126. 2110 ifcm=4orcm=5thenprint"[217]ou cannot go that direction."
  127. 2120 ifcm=6thenlc=3:goto250
  128. 2130 ifcm=7thengoto2000
  129. 2140 goto2045
  130. 2499 :
  131. 2500 rem *** location #5 ***
  132. 2505 ifd5=1andmd=0thenprint"[212]here is a pouch of magic dust on the   ground in here."
  133. 2510 ifd5=0thenprint"[212]here is a group of undead skeletons in this room."
  134. 2512 ifd5=0thenprint"[212]hey are attacking."
  135. 2515 ifd5=1andmd>0thenprint"[212]his room is empty."
  136. 2516 print
  137. 2517 ifd5=1thenprint"[212]here are exits to the east and south."
  138. 2520 gosub300
  139. 2525 ifd5=1thengoto2550
  140. 2530 ifcm=2andud=9thenprint"[212]he holy water destroyed the skeletons.":d5=1:goto2500
  141. 2540 print"[212]oo late, the skeletons begin to rip"
  142. 2542 print"all of your flesh off and have a great  feast.":goto50000
  143. 2550 ifcm=2thenprint"[206]o effect."
  144. 2560 ifcm=3thenlc=17:goto250
  145. 2570 ifcm=4orcm=6thenprint"[217]ou cannot go that direction."
  146. 2580 ifcm=5thenlc=2:goto250
  147. 2590 ifcm=7thengoto2500
  148. 2600 ifcm=9andmd>0thenprint"[206]othing here."
  149. 2610 ifcm=9andmd=0thenprint"[205]agic dust taken.":md=1
  150. 2620 goto2520
  151. 2999 :
  152. 3000 rem *** location #7 ***
  153. 3001 :
  154. 3010 print"[212]here is a glass case in the middle of  this room."
  155. 3020 ifds=0thenprint"[212]here is a dragonslayer in the the case."
  156. 3030 print:print"[212]here are exits to the north and west."
  157. 3040 gosub300
  158. 3050 ifcm=2andud=8thenprint"[212]he magic dust evaporated part of the   glass case.":d7=1
  159. 3060 ifcm=2andud<>8thenprint"[206]o effect."
  160. 3070 ifcm=3orcm=5thenprint"[217]ou cannot go that direction."
  161. 3080 ifcm=4thenlc=4:goto250
  162. 3090 ifcm=6thenlc=17:goto250
  163. 3100 ifcm=7thengoto3000
  164. 3105 ifcm=9andd7=1andds=1thenprint"[206]othing here."
  165. 3110 ifcm=9andd7=1andds=0thenprint"[196]ragonslayer taken.":ds=1
  166. 3120 ifcm=9andd7=0thenprint"[217]ou cannot break the glass case.  [201]t is obviously magic."
  167. 3130 goto3040
  168. 3499 :
  169. 3500 rem *** location #8 ***
  170. 3501 :
  171. 3510 ifd8=1andri>0thenprint"[193] dead dragon is on the floor in here."
  172. 3512 ifd8=1andri>0thenprint"[212]hen room is otherwise empty."
  173. 3520 ifd8=1andri=0thenprint"[212]he dead dragon has a red potion strung around it's neck."
  174. 3530 ifd8=0thenprint"[212]here is a ferocious looking drake in"
  175. 3532 ifd8=0thenprint"here that is about to attack."
  176. 3535 ifd8=1thenprint:print"[212]here is an exit to the east."
  177. 3540 gosub300
  178. 3550 ifd8=1thengoto3590
  179. 3560 ifcm=2andud=6thenprint"[202]ust as the drake was about to unleash"
  180. 3561 ifcm=2andud=6thenprint"it's fiery weapon, you slash it in the"
  181. 3562 ifcm=2andud=6thenprint"neck and it falls to the ground, dead."
  182. 3565 ifcm=2andud=6thend8=1:goto3500
  183. 3570 print"[212]oo late. [212]he drake spits out boiling"
  184. 3572 print"lava, which instantly fries you. [201]t's   all over.":goto50000
  185. 3590 ifcm=2thenprint"[206]o effect."
  186. 3600 ifcm=3orcm=4orcm=6thenprint"[217]ou cannot go that direction."
  187. 3610 ifcm=5thenlc=16:goto250
  188. 3620 ifcm=7thengoto3500
  189. 3630 ifcm=9andri>0thenprint"[206]othing here."
  190. 3640 ifcm=9andri=0thenprint"[208]otion taken.":ri=1
  191. 3650 goto3540
  192. 3999 :
  193. 4000 rem *** location #9 ***
  194. 4001 :
  195. 4010 ifms=0thenprint"[212]here  is a rather large stone in this"
  196. 4011 ifms=0thenprint"room with a sword driven directly into"
  197. 4012 ifms=0thenprint"the stone. [193]s you approach the sword it begins to glow."
  198. 4020 ifms>0thenprint"[212]here is nothing in this room but a     large stone."
  199. 4030 print:print"[212]here are exits to the south and west."
  200. 4040 gosub300
  201. 4050 ifcm=2andud=4thenprint"[217]ou drink the magic potion and you"
  202. 4051 ifcm=2andud=4thenprint"become extremely strong. [217]ou are able"
  203. 4052 ifcm=2andud=4thenprint"to pull the sword out of the stone."
  204. 4053 ifcm=2andud=4thenprint"[205]agic sword taken.":ms=1
  205. 4060 ifcm=2andud<>4thenprint"[206]o effect."
  206. 4070 ifcm=3thenlc=15:goto250
  207. 4080 ifcm=4orcm=5thenprint"[217]ou cannot go that direction."
  208. 4090 ifcm=6thenlc=16:goto250
  209. 4100 ifcm=7thengoto4000
  210. 4110 ifcm=9andms=0thenprint"[2